home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 23 / AACD 23.iso / AACD / Programming / tek / array / stringcatstr.c < prev    next >
Encoding:
C/C++ Source or Header  |  2001-05-12  |  608 b   |  38 lines
  1.  
  2. #include "tek/array.h"
  3.  
  4. /* 
  5. **    TEKlib
  6. **    (C) 2001 TEK neoscientists
  7. **    all rights reserved.
  8. **
  9. **    TBOOL TStringCatStr(TSTRPTR *s1, TSTRPTR s2)
  10. **
  11. **    append regular string to dynamic string.
  12. **
  13. */
  14.  
  15. TBOOL TStringCatStr(TSTRPTR *s1, TSTRPTR s2)
  16. {
  17.     if (*s1 && s2)
  18.     {
  19.         TARRAY *a1 = *((TARRAY **) s1) - 1;
  20.         if (a1->valid)
  21.         {
  22.             TUINT addlen = TStrLen(s2);
  23.             if (addlen)
  24.             {
  25.                 TUINT oldlen = a1->len - 1;
  26.                 if (TArraySetLen((TAPTR *) s1, oldlen + addlen + 1))
  27.                 {
  28.                     TMemCopy(s2, *s1 + oldlen, addlen + 1);
  29.                     return TTRUE;
  30.                 }
  31.                 return TFALSE;
  32.             }        
  33.             return TTRUE;    
  34.         }
  35.     }
  36.     return TFALSE;
  37. }
  38.